home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / disk / misc / filex11.lha / FileX / ARexx / Info.FileX < prev   
Encoding:
Text File  |  1993-10-22  |  1.9 KB  |  82 lines
  1. /* 
  2.  * FileX arexxscript
  3.  *
  4.  * FindVersion - Searches for the versionstring
  5.  */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. REQUESTRESPONSE BUTTONS '"English|Deutsch"' PROMPT '"What''s your favourite language? / Deine Lieblingssprache?"'
  10.  
  11. IF RC = 0 THEN DO
  12.     jawas = 'Ja was ist denn das?'
  13.     duhast = 'Du hast ein File mit dem Namen `'
  14.     eingeladen = ''' eingeladen'
  15.     liegin =  'und es liegt ja in'
  16.     sogar = 'und es ist ja sogar genau '
  17.     lang = ' Bytes lang!'
  18.     zufall = 'Welch ein Zufall!'
  19.     anfang = 'Am Anfang steht merkwürdigerweise folgende Zahlenfolge:'
  20.     keinvirus = 'Kein Virus! Da haben wir ja nocheinmal Glück gehabt!'
  21.     unreg = '"Immer noch die unregistrierte Version! Dir geht''s bestimmt schlecht!"'
  22.     reg = '"Sehr schön! Du hast Dich registrieren laßen, oder?"'
  23.     but = '"Yep| Keine Ahnung! |Nope"'
  24.     gibnamen = '"Gib Deinen Namen ein:"'
  25.     istlieb = ' ist lieb!'
  26. END
  27. ELSE DO
  28.     jawas = 'What''s this?'
  29.     duhast = 'You''ve loaded a file called `'
  30.     eingeladen = '''!'
  31.     liegin =  'and it''s in'
  32.     sogar = 'AND! it''s exactly '
  33.     lang = ' bytes long!'
  34.     zufall = 'What a suprise!'
  35.     anfang = 'Right at the beginning i''ve found:'
  36.     keinvirus = 'No virus! Puhh!'
  37.     unreg = '"Oooh, this is a unregistred version! You _must_ feel bad!"'
  38.     reg = '"Very nice! This is a registred version, eh?"'
  39.     but = '"Yep| I dunno! |Nope"'
  40.     gibnamen = '"Enter your name:"'
  41.     istlieb = ' is my hero!'
  42. END
  43.  
  44. GETATTR PROJECT STEM meinstem
  45.  
  46. IF meinstem.filelen > 0 THEN DO
  47.     SAY jawas
  48.     SAY duhast || meinstem.file || eingeladen
  49.     IF meinstem.path ~= "" THEN
  50.         SAY liegin || '`'meinstem.path''' '
  51.  
  52.     SAY sogar || meinstem.filelen || lang
  53.     SAY zufall
  54.  
  55.     address command wait 2
  56.  
  57.     IF meinstem.filelen > 16 THEN DO
  58.         GETBYTES pos 0 number 16
  59.         SAY result
  60.         SAY keinvirus
  61.         END
  62.     address command wait 2
  63.  
  64.     SAY
  65. END
  66.  
  67. GETATTR APPLICATION REGNUMBER VAR regnum
  68.  
  69. IF regnum = 0 THEN
  70.     text = unreg
  71. ELSE
  72.     text = reg 
  73.  
  74. REQUESTRESPONSE BUTTONS but PROMPT text
  75.  
  76. REQUESTSTRING DEFAULT "Klaas" PROMPT gibnamen
  77.  
  78. REQUESTNOTIFY '"' || result || istlieb || '"'
  79.  
  80. ADDRESS COMMAND wait 3
  81.  
  82.